home *** CD-ROM | disk | FTP | other *** search
/ CompuServe CD 495W / Compuserve XTreme Edition 495W.iso / tech / mmw / ebn / ebn_if.exe / EBN.DXR / 00090_wall list constructor.ls < prev    next >
Encoding:
Text File  |  1995-05-19  |  10.6 KB  |  138 lines
  1. on birth me
  2.   set the volume of sound 1 to 10
  3.   loadSequences(me)
  4.   loadWalls(me)
  5.   initTitles()
  6.   initTextWindow()
  7. end
  8.  
  9. on loadWalls me
  10.   global theWallList
  11.   set theWallList to [:]
  12.   set theGrid to [#tbseq, #ebnseq, #liveseq, #techseq, #getdownseq, #mac10seq, #manipulateseq, #monksseq, #sexseq, #stationidseq, #unitedseq, #ebcsseq, #allseq, #alladinseq, #_378seq, #allseq]
  13.   setThePuppy(me, #interfacewall, "mixed wall", theGrid, 0)
  14.   set theGrid to [#allseq, #allseq, #allseq, #allseq, #allseq, #allseq, #allseq, #allseq, #allseq, #allseq, #allseq, #allseq, #allseq, #allseq, #allseq, #allseq]
  15.   setThePuppy(me, #gamewall, "station", theGrid, 0)
  16.   set theGrid to [#_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq, #_378seq]
  17.   setThePuppy(me, #_378wall, "_378", theGrid, 26)
  18.   set theGrid to [#alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq, #alladinseq]
  19.   setThePuppy(me, #alladinwall, "alladin", theGrid, 29)
  20.   set theGrid to [#ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq, #ebcsseq]
  21.   setThePuppy(me, #ebcswall, "ebcs", theGrid, 27)
  22.   set theGrid to [#getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq, #getdownseq]
  23.   setThePuppy(me, #getdownwall, "get down", theGrid, 28)
  24.   set theGrid to [#mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq, #mac10seq]
  25.   setThePuppy(me, #mac10wall, "mac 10", theGrid, 31)
  26.   set theGrid to [#manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq, #manipulateseq]
  27.   setThePuppy(me, #manipulatewall, "manipulate", theGrid, 27)
  28.   set theGrid to [#monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq, #monksseq]
  29.   setThePuppy(me, #monkswall, "monks", theGrid, 33)
  30.   set theGrid to [#sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq, #sexseq]
  31.   setThePuppy(me, #sexwall, "sex", theGrid, 30)
  32.   set theGrid to [#stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq, #stationidseq]
  33.   setThePuppy(me, #stationidwall, "station", theGrid, 32)
  34.   set theGrid to [#unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq, #unitedseq]
  35.   setThePuppy(me, #unitedwall, "united", theGrid, 34)
  36.   set theGrid to [#ebvseq, #ebvseq, #ebvseq, #ebvseq, #golfseq, #golfseq, #golfseq, #golfseq, #podiumseq, #podiumseq, #podiumseq, #podiumseq, #vsseq, #vsseq, #vsseq, #vsseq]
  37.   setThePuppy(me, #techwall, "station", theGrid, 0)
  38.   set theGrid to [#tpjoshseq, #podiumseq, #podiumseq, #podiumseq, #tpblueseq, #podiumseq, #podiumseq, #podiumseq, #tpwhiteseq, #podiumseq, #podiumseq, #podiumseq, #tplightseq, #tpetcseq, #tpetcseq, #tpoldseq]
  39.   set tempptr to setThePuppy(me, #podiumwall, -1, theGrid, 20)
  40.   setSeedGrid(tempptr, [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0])
  41.   setFreezeGrid(tempptr, [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1])
  42.   set theGrid to [#ebvdishseq, #ebvdishseq, #ebvdishseq, #ebvdishseq, #ebvdishseq, #ebvdishseq, #ebvdishseq, #ebvdishseq, #ebvotherseq, #ebvotherseq, #ebvotherseq, #ebvotherseq, #ebvotherseq, #ebvotherseq, #ebvotherseq, #ebvotherseq]
  43.   set tempptr to setThePuppy(me, #ebvwall, -1, theGrid, 22)
  44.   setSeedGrid(tempptr, [0, 1, 2, 3, 4, 5, 6, 7, 0, 1, 2, 3, 4, 5, 6, 7])
  45.   set theGrid to [#golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq, #golfseq]
  46.   set tempptr to setThePuppy(me, #golfwall, -1, theGrid, 23)
  47.   setSeedGrid(tempptr, [0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 3, 2, 1, 0])
  48.   setFreezeGrid(tempptr, [0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0])
  49.   set theGrid to [#vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq, #vsseq]
  50.   set tempptr to setThePuppy(me, #vswall, -1, theGrid, 21)
  51.   setSeedGrid(tempptr, [0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0])
  52.   set theGrid to [#historyseq, #historyseq, #pcseq, #pcseq, #historyseq, #historyseq, #pcseq, #pcseq, #pcseq, #pcseq, #historyseq, #historyseq, #pcseq, #pcseq, #historyseq, #historyseq]
  53.   setThePuppy(me, #ebnwall, "station", theGrid, 0)
  54.   set theGrid to [#historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq, #historyseq]
  55.   set tempptr to setThePuppy(me, #historywall, -1, theGrid, 13)
  56.   setSeedGrid(tempptr, [0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 3, 4, 0])
  57.   setFreezeGrid(tempptr, [0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0])
  58.   set theGrid to [#pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq, #pcseq]
  59.   setThePuppy(me, #pcwall, -1, theGrid, 14)
  60.   set theGrid to [#actionseq, #actionseq, #livetechseq, #livetechseq, #actionseq, #actionseq, #livetechseq, #livetechseq, #actionseq, #actionseq, #livetechseq, #livetechseq, #actionseq, #wiringseq, #wiringseq, #livetechseq]
  61.   set tempptr to setThePuppy(me, #livewall, "station", theGrid, 0)
  62.   setSeedGrid(tempptr, [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0])
  63.   set theGrid to [#actionstageseq, #actionstageseq, #actionstageseq, #actionstageseq, #actionstageseq, #actionstageseq, #actionstageseq, #actionstageseq, #actionstageseq, #actionstageseq, #actionstageseq, #actionstageseq, #actionbeerseq, #actionbeerseq, #actionbeerseq, #actionbeerseq]
  64.   setThePuppy(me, #actionwall, -1, theGrid, 19)
  65.   set theGrid to [#linerseq, #linerseq, #linerseq, #linerseq, #manipulateseq, #monksseq, #mac10seq, #sexseq, #stationidseq, #getdownseq, #ebcsseq, #unitedseq, #linerseq, #_378seq, #alladinseq, #linerseq]
  66.   setThePuppy(me, #tbwall, "station", theGrid, 0)
  67.   set theGrid to [#getdownseq, #mac10seq, #manipulateseq, #monksseq, #sexseq, #linerseq, #linerseq, #stationidseq, #ebcsseq, #linerseq, #linerseq, #unitedseq, #tvtseq, #_378seq, #alladinseq, #tvtseq]
  68.   setThePuppy(me, #songwall, -1, theGrid, 0)
  69.   set theGrid to [#linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq, #linerseq]
  70.   setThePuppy(me, #linerwall, -1, theGrid, 15)
  71. end
  72.  
  73. on setThePuppy me, theRef, theAud, theGrid, theText
  74.   global theWallList
  75.   set the visible of sprite 48 to not (the visible of sprite 48)
  76.   updateStage()
  77.   set theinc to 6
  78.   set the volume of sound 1 to the volume of sound 1 + theinc
  79.   set newWallPtr to birth(script "wall", theAud, theText)
  80.   addProp(theWallList, theRef, newWallPtr)
  81.   setTheGrid(newWallPtr, theGrid)
  82.   return newWallPtr
  83. end
  84.  
  85. on loadSequences me
  86.   global seqList
  87.   set seqList to [:]
  88.   addProp(seqList, #alladinseq, birth(script "sequence", 4, 7, #alladinwall))
  89.   addProp(seqList, #_378seq, birth(script "sequence", 1, 3, #_378wall))
  90.   addProp(seqList, #ebcsseq, birth(script "sequence", 8, 11, #ebcswall))
  91.   addProp(seqList, #getdownseq, birth(script "sequence", 12, 16, #getdownwall))
  92.   addProp(seqList, #mac10seq, birth(script "sequence", 17, 19, #mac10wall))
  93.   addProp(seqList, #manipulateseq, birth(script "sequence", 20, 23, #manipulatewall))
  94.   addProp(seqList, #monksseq, birth(script "sequence", 24, 27, #monkswall))
  95.   addProp(seqList, #sexseq, birth(script "sequence", 28, 31, #sexwall))
  96.   addProp(seqList, #stationidseq, birth(script "sequence", 32, 36, #stationidwall))
  97.   addProp(seqList, #unitedseq, birth(script "sequence", 37, 40, #unitedwall))
  98.   set theSeq to birth(script "sequence", 48, 48, #tbwall)
  99.   addProp(seqList, #tbseq, theSeq)
  100.   addPictToSeq(theSeq, 36)
  101.   addProp(seqList, #liveseq, birth(script "sequence", 51, 53, #livewall))
  102.   addProp(seqList, #techseq, birth(script "sequence", 54, 76, #techwall))
  103.   addProp(seqList, #ebnseq, birth(script "sequence", 41, 47, #ebnwall))
  104.   set theSeq to birth(script "sequence", 48, 49, #linerwall)
  105.   addProp(seqList, #linerseq, theSeq)
  106.   addPictToSeq(theSeq, 36)
  107.   addProp(seqList, #tvtseq, birth(script "sequence", 48, 50, #songwall))
  108.   set theSeq to birth(script "sequence", 77, 77, #wiringwall)
  109.   addProp(seqList, #wiringseq, theSeq)
  110.   addPictToSeq(theSeq, 32)
  111.   set theSeq to birth(script "sequence", 51, 53, #actionwall)
  112.   addProp(seqList, #actionseq, theSeq)
  113.   addPictToSeq(theSeq, 65)
  114.   addPictToSeq(theSeq, 66)
  115.   addProp(seqList, #livetechseq, birth(script "sequence", 60, 68, #techwall))
  116.   addProp(seqList, #actionbeerseq, birth(script "sequence", 51, 52, #actionwall))
  117.   set theSeq to birth(script "sequence", 53, 53, #actionwall)
  118.   addProp(seqList, #actionstageseq, theSeq)
  119.   addPictToSeq(theSeq, 65)
  120.   addPictToSeq(theSeq, 66)
  121.   addProp(seqList, #ebvseq, birth(script "sequence", 58, 62, #ebvwall))
  122.   addProp(seqList, #golfseq, birth(script "sequence", 54, 57, #golfwall))
  123.   addProp(seqList, #podiumseq, birth(script "sequence", 63, 74, #podiumwall))
  124.   addProp(seqList, #vsseq, birth(script "sequence", 75, 76, #vswall))
  125.   addProp(seqList, #tpblueseq, birth(script "sequence", 69, 71, #podiumwall))
  126.   addProp(seqList, #tpwhiteseq, birth(script "sequence", 67, 68, #podiumwall))
  127.   addProp(seqList, #tpjoshseq, birth(script "sequence", 65, 66, #podiumwall))
  128.   addProp(seqList, #tplightseq, birth(script "sequence", 63, 64, #podiumwall))
  129.   addProp(seqList, #tpoldseq, birth(script "sequence", 72, 72, #podiumwall))
  130.   addProp(seqList, #tpetcseq, birth(script "sequence", 73, 74, #podiumwall))
  131.   addProp(seqList, #ebvdishseq, birth(script "sequence", 60, 62, #ebvwall))
  132.   addProp(seqList, #ebvotherseq, birth(script "sequence", 58, 59, #ebvwall))
  133.   addProp(seqList, #historyseq, birth(script "sequence", 41, 45, #historywall))
  134.   addProp(seqList, #pcseq, birth(script "sequence", 46, 48, #pcwall))
  135.   addProp(seqList, #allseq, birth(script "sequence", 1, 76, #freezeframe))
  136.   sort(seqList)
  137. end
  138.